8 All data

Note: need to do a full book render to get OJS functionality.

8.1 Merge All data

8.1.1 Read merged data target

tibble [516,898 × 5] (S3: tbl_df/tbl/data.frame)
 $ tag           : chr [1:516898] "00088cbed0" "00088cbed3" "00088cbed4" "00088cbed4" ...
 $ detectionDate : POSIXct[1:516898], format: "2013-03-25 04:00:00" "2012-06-07 13:03:00" ...
 $ river         : chr [1:516898] "wb obear" "west brook" "west brook" "west brook" ...
 $ section       : num [1:516898] 7 1 40 44 25 32 32 3 3 23 ...
 $ observedLength: num [1:516898] 62 62 109 154 113 120 147 70 74 86 ...

Code

tagsToPlot = allOJS.filter((d) => selectTag.includes(d.tag))

tagsOverTime = Plot.plot({
  marks: [
    Plot.dot(tagsToPlot, { x: "detectionDate", y: "section", stroke: "tag" }),
    Plot.line(tagsToPlot, { x: "detectionDate", y: "section", stroke: "tag" })
  ]
})

---
title: "All data"
format:
  html:
    toc: false
    echo: false
    keep-hidden: false
    code-tools: true
---

Note: need to do a full book render to get OJS functionality.

## Merge All data

```{r dataAllOptions, include=FALSE}
knitr::opts_chunk$set(message = FALSE, warning = FALSE)
```

```{r librariesdataAll, echo = FALSE}
#library(devtools)
#options(download.file.method = "wininet") or turn off VPN
#devtools::install_github('Conte-Ecology/westBrookData/getWBData')
library(tidyverse)
library(lubridate)
library(validate)
library(targets)


# devtools::install_github('bletcher/getPrepareWBData')
# use this if command above doesn't work: options(download.file.method = "wininet")
#library(getPrepareWBData)
```

### Read merged data target

```{r dataAll}

all <- tar_read(cdWB_all) %>%
  select(tag, detectionDate, river, section, observedLength)

str(all)

ojs_define(allOJS = all)
```

```{r}
tags <- all %>%
  group_by(tag) %>%
  summarize(n = n()) %>%
  arrange(desc(n)) %>%
  filter(!is.na(tag))

ojs_define(tagsOJS = tags$tag)
```

```{ojs}
//| panel: input

viewof selectTag = Inputs.select(
  tagsOJS,
  {
    value: "1bf20ebcae",
    label: "Tags:",
    multiple: true
  }
)

```

```{ojs}
tagsToPlot = allOJS.filter((d) => selectTag.includes(d.tag))

tagsOverTime = Plot.plot({
  marks: [
    Plot.dot(tagsToPlot, { x: "detectionDate", y: "section", stroke: "tag" }),
    Plot.line(tagsToPlot, { x: "detectionDate", y: "section", stroke: "tag" })
  ]
})
```